home *** CD-ROM | disk | FTP | other *** search
/ Loadstar 55 / 055.d81 / 64 timer (.txt) < prev    next >
Commodore BASIC  |  2022-08-26  |  2KB  |  45 lines
  1. 10 poke53281,0:poke53280,0:gosub140
  2. 20 print"[147]64 timer - stephane st-louis"
  3. 30 forq=49152to49266:reada:pokeq,a:t=t+a:next:ift<>9872thenprint"data error":end
  4. 40 data120,169,19,141,20,3,169,192,141,21,3,88,96,41,15,24,105,48,96,173,11,220
  5. 50 data32,13,192,141,32,4,173,10,220,32,13,192,141,35,4,173,9,220,32,13,192,141
  6. 60 data 38,4,173,11,220,32,110,192,41,1,32,15,192,141,31,4,173,10,220,32,110,192
  7. 70 data41,7,32,15,192,141,34,4,173,9,220,32,110,192,41,7,32,15,192,141,37,4,169
  8. 80 data32,141,30,4,141,39,4,169,58,141,33,4,141,36,4,173,8,220,76,49,234,74,74
  9. 90 data74,74,96
  10. 100 input"hour  ";h$:iflen(h$)>1then h=16
  11. 110 hh=val(right$(h$,1)):h=h+hh:poke 56331,h:input"minute";m$
  12. 120 iflen(m$)>1thenm=16*val(left$(m$,1))
  13. 130 mm=val(right$(m$,1)):m=m+mm:poke 56330,m:poke 56329,0:poke 56328,0:sys 49152
  14. 135 end
  15. 140 print"[147]       [155][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162]"
  16. 150 print"       [152]    LOADSTAR PRESENTS     "
  17. 160 print"       [151][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162]"
  18. 190 print
  19. 200 print"         [172]                    [146][187]"
  20. 210 print"                               "
  21. 220 print"            6 4   T I[160]M[160]E[160]R    "
  22. 230 print"[163][163][163][163][163][163][163][163][163][160]                     [146][163][163][163][163][163][163][163][163][163]";
  23. 240 print"         [160]        By          [160]"
  24. 250 print"[163][163][163][163][163][163][163][163][163]                      [146][163][163][163][163][163][163][163][163][163]";
  25. 260 print"           Stephane St-Louis  [160]"
  26. 270 print"[163][163][163][163][163][163][163][163][163]                     [160][146][163][163][163][163][163][163][163][163][163]";
  27. 280 print"          [207]nce activated, this "
  28. 290 print"            program does not   "
  29. 300 print"           return to [204][207][193][196][211][212][193][210]  "
  30. 310 print"         [188]                    [146][190] "
  31. 320 print
  32. 330 print"       [155][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162]"
  33. 340 print"       [152] PRESS SPACE[160]TO[160]CONTINUE  "
  34. 350 print"       [151][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184]"
  35. 352 print"       [155][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162]"
  36. 354 print"       [152]  [208][210][197][211][211] [210][197][212][213][210][206] [198][207][210] [205][197][206][213]   "
  37. 356 print"       [151][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184]"
  38. 360 print
  39. 370 print"";
  40. 380 geta$:ifa$<>" "anda$<>chr$(13)then380
  41. 390 ifa$=" "thenreturn
  42. 400 print"[147][144]load"chr$(34)"one-screen winners"chr$(34)",8"
  43. 410 print"run"
  44. 420 poke631,13:poke632,13:poke198,2:end
  45.